home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / Freedom / Prepare Font Directory < prev    next >
Text File  |  1998-07-13  |  2KB  |  76 lines

  1. (set #MSG_INTRO "\nThis will prepare a directory for truetype fonts, i.e. create the directory \"_truetype\" in \"FONTS:\". Are you sure you want to continue?")
  2. (set #MSG_SELECTDIR "\nWhere shall the \"_truetype\" directory be created? The directory you choose must be addressable through the \"FONTS:\" assign!!")
  3. (set #MSG_BADDIR "\nThis directory is not addressable through the \"FONTS:\" assign. Try again!")
  4. (set #MSG_CREATINGDIR "\nCreating \"_truetype\" directory in \"%s\" ...")
  5. (set #MSG_PATHSETTINGS "\nNow the path will be saved to the ENV variable \"FREEDOM_FONT_PATH\". This tells the \"Install Truetype Font\" script where to install the fonts.")
  6. (set #MSG_DONE "\nInstallation complete!")
  7. (set #MSG_ABORT "\nInstallation aborted!")
  8.  
  9. (set #MSG_NOHELP "I can't help you!")
  10.  
  11. (if (= 0 (askbool
  12.             (prompt #MSG_INTRO)
  13.             (default 1)
  14.             (help #MSG_NOHELP)
  15.          )
  16.     )
  17.     (
  18.         (exit #MSG_ABORT (quiet))
  19.     )
  20. )
  21.  
  22. (set #pathok 0)
  23.  
  24. (while (= 0 #pathok)
  25.     (
  26.         (set #dest
  27.             (expandpath
  28.                 (askdir
  29.                     (prompt #MSG_SELECTDIR)
  30.                     (default "SYS:Fonts")
  31.                     (help #MSG_NOHELP)
  32.                 )
  33.             )
  34.         )
  35.         
  36.         (textfile
  37.             (dest (tackon #dest "freedom.dummy"))
  38.             (append "delete me!")
  39.             (help #MSG_NOHELP)
  40.         )
  41.         
  42.         (if (= 1 (exists ("FONTS:freedom.dummy")))
  43.             (set #pathok 1)
  44.             (message #MSG_BADDIR)
  45.         )
  46.         
  47.         
  48.         (delete (tackon #dest "freedom.dummy")
  49.             (help #MSG_NOHELP)
  50.         )
  51.     )
  52. )
  53.  
  54. (makedir (tackon #dest "_truetype")
  55.     (prompt (#MSG_CREATINGDIR #dest))
  56.     (help #MSG_NOHELP)
  57.     (confirm)
  58.     
  59. )
  60.  
  61. (message #MSG_PATHSETTINGS)
  62.  
  63. (textfile
  64.     (dest "ENV:FREEDOM_FONT_PATH")
  65.     (help #MSG_NOHELP)
  66.     (append #dest)
  67. )
  68.  
  69. (textfile
  70.     (dest "ENVARC:FREEDOM_FONT_PATH")
  71.     (help #MSG_NOHELP)
  72.     (append #dest)
  73. )
  74.  
  75. (exit #MSG_DONE (quiet))
  76.